home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / WIN / VB_CTRLS / BLOONVB.ZIP / DIALOG.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-09-18  |  6.4 KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form Dialog 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Application Dialog"
  5.    ClientHeight    =   4875
  6.    ClientLeft      =   1455
  7.    ClientTop       =   1440
  8.    ClientWidth     =   6225
  9.    ControlBox      =   0   'False
  10.    Height          =   5280
  11.    Left            =   1395
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4875
  16.    ScaleWidth      =   6225
  17.    Top             =   1095
  18.    Width           =   6345
  19.    Begin Balloon Balloon1 
  20.       BackColor       =   &H0000FFFF&
  21.       ForeColor       =   &H000000FF&
  22.       Left            =   3480
  23.       Top             =   3600
  24.    End
  25.    Begin DriveListBox Drive1 
  26.       Height          =   315
  27.       Left            =   3240
  28.       TabIndex        =   11
  29.       Top             =   2400
  30.       Width           =   2775
  31.    End
  32.    Begin DirListBox Dir1 
  33.       Height          =   930
  34.       Left            =   360
  35.       TabIndex        =   10
  36.       Top             =   3600
  37.       Width           =   2295
  38.    End
  39.    Begin CommandButton Btn_Help 
  40.       Caption         =   "Help Balloons"
  41.       Height          =   375
  42.       Left            =   4320
  43.       TabIndex        =   9
  44.       Top             =   3600
  45.       Width           =   1575
  46.    End
  47.    Begin FileListBox File1 
  48.       Height          =   1005
  49.       Left            =   360
  50.       TabIndex        =   8
  51.       Top             =   2400
  52.       Width           =   2295
  53.    End
  54.    Begin ComboBox Combo1 
  55.       Height          =   300
  56.       Left            =   3240
  57.       TabIndex        =   7
  58.       Text            =   "Combo1"
  59.       Top             =   1800
  60.       Width           =   2775
  61.    End
  62.    Begin TextBox Text2 
  63.       Height          =   495
  64.       Left            =   3240
  65.       TabIndex        =   6
  66.       Text            =   "Text2"
  67.       Top             =   1080
  68.       Width           =   2775
  69.    End
  70.    Begin TextBox Text1 
  71.       Height          =   495
  72.       Left            =   3240
  73.       TabIndex        =   5
  74.       Text            =   "Text1"
  75.       Top             =   360
  76.       Width           =   2775
  77.    End
  78.    Begin Frame Frame1 
  79.       Caption         =   "Frame1"
  80.       Height          =   1935
  81.       Left            =   360
  82.       TabIndex        =   1
  83.       Top             =   240
  84.       Width           =   2295
  85.       Begin OptionButton Option3 
  86.          Caption         =   "Option3"
  87.          Height          =   255
  88.          Left            =   360
  89.          TabIndex        =   4
  90.          Top             =   1440
  91.          Width           =   1455
  92.       End
  93.       Begin OptionButton Option2 
  94.          Caption         =   "Option2"
  95.          Height          =   255
  96.          Left            =   360
  97.          TabIndex        =   3
  98.          Top             =   960
  99.          Width           =   1455
  100.       End
  101.       Begin OptionButton Option1 
  102.          Caption         =   "Option1"
  103.          Height          =   255
  104.          Left            =   360
  105.          TabIndex        =   2
  106.          Top             =   480
  107.          Width           =   1455
  108.       End
  109.    End
  110.    Begin CommandButton BTN_Close 
  111.       Caption         =   "Close"
  112.       Height          =   375
  113.       Left            =   4320
  114.       TabIndex        =   0
  115.       Top             =   4200
  116.       Width           =   1575
  117.    End
  118. Sub Balloon1_BalloonClick (hwndAtMouse As Integer)
  119. ' PURPOSE:  hwndAtMouse is the control the mouse is over
  120. ' COMMENTS: pass back the help text
  121. '           shows how to programmatcially end a session
  122. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  123. Dim Msg As String
  124. Dim CRLF As String
  125.     CRLF = Chr$(13) + Chr$(10)
  126.     Select Case hwndAtMouse
  127.         Case Me.hWnd
  128.             Exit Sub    ' do nothing
  129.         
  130.         Case Btn_Help.hWnd
  131.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Btn_Help."
  132.         
  133.         Case BTN_Close.hWnd
  134.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control BTN_Close."
  135.         
  136.         Case Text1.hWnd
  137.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text1."
  138.         
  139.         Case Text2.hWnd
  140.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Text2."
  141.         
  142.         Case Combo1.hWnd
  143.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Combo1."
  144.         
  145.         Case File1.hWnd
  146.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control File1."
  147.         
  148.         Case Dir1.hWnd
  149.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Dir1."
  150.             
  151.         Case Drive1.hWnd
  152.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Drive1."
  153.         Case Frame1.hWnd
  154.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Frame1."
  155.         
  156.         Case Option1.hWnd
  157.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "The mouse is over the control Option1."
  158.         
  159.         Case Option2.hWnd
  160.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option2."
  161.         
  162.         Case Option3.hWnd
  163.             Balloon1.MessageText = "The hwndAtMouse = " + Hex$(hwndAtMouse) + CRLF + "  The mouse is over the control Option3."
  164.         Case Else
  165.         
  166.         End Select
  167. End Sub
  168. Sub BTN_Close_Click ()
  169.     Hide
  170. End Sub
  171. Sub Btn_Help_Click ()
  172.     ' initial help text string
  173.     ' here we generate the text internally
  174.     '
  175.     ' Initial text can be left blank, if blank then
  176.     ' Balloon.vbx control will display an internal init message
  177.     Balloon1.MessageText = "Dialog form. Enter the desired parameters. Move mouse over control that you would like help on."
  178.     Balloon1.Action = 20     ' Balloon_START = 20
  179. End Sub
  180. Sub Form_Load ()
  181.     Me.Top = 0      ' Balloon_Form.Top
  182.     Me.Left = 0     ' Balloon_Form.Left
  183.     Me.Width = 6345
  184.     Me.Height = 5280
  185. End Sub
  186.